C     SYNTHETIC FORTRAN SOURCE CODE
C
      IMPLICIT REAL (A-D)
      DATA A000/1.0/,B000/2.0/,C000/3.0/,D000/4.0/
      A001 = C000 - B000
      B001 = D000 / B000
      C001 = A000 + B000
      D001 = B000 * B000
      A002 = C001 - B001
      B002 = D001 / B001
      C002 = A001 + B001
      D002 = B001 * B001
      A003 = C002 - B002
      B003 = D002 / B002
      C003 = A002 + B002
      D003 = B002 * B002
      A004 = C003 - B003
      B004 = D003 / B003
      C004 = A003 + B003
      D004 = B003 * B003
      A005 = C004 - B004
      B005 = D004 / B004
      C005 = A004 + B004
      D005 = B004 * B004
      WRITE(*,1000) A005, B005, C005, D005
 1000 FORMAT(4F10.1)
      END
